Mapa

---
title: "Las aventuras de Jorge"
author: "Jorge Manuel Torres Arizmendi"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: escudo.jpg
    logo: escudo.jpg
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      - {title: "Las aventuras de Jorge", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
      - {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Título del mapa

```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Comala", Giro = "cultural", longitud = -103.7, latitud = 19.3)
lugar2 <- c(Nombre = "Guadalajara", Giro = "gastronomico", longitud = -103.4, latitud = 20.7)
lugar3 <- c(Nombre = "Zipolite", Giro = "turistico", longitud = -96.5, latitud = 15.6)
lugar4 <- c(Nombre = "Hermosillo", Giro = "Turistico", longitud =  -110.9, latitud = 29.08)
lugar5 <- c(Nombre = "Guanajuato", Giro = "cultural", longitud =  -101.2, latitud = 21.03)
lugar6 <- c(Nombre = "Los Cabos", Giro = "turistico", longitud = -109.91, latitud = 22.88)

### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) 

### Imprimimos el mapa
mapa
```



Row
-----------------------------------------------------------------------

### Descripción del mapa

Aquí puedes escribir la descripción del mapa

*Comala*  **La razón principal para visitar este sitio es por el libro de Juan Rulfo, "Pedro Páramo" por lo que se me hace muy interesante visitar el pueblo**

*Guadalajara*  **Mi interes por visitar Guadakajara es porque me gusta mucho su gastronomia, principalmente las tortas ahogadas y la carne en su jugo** 

*Zipolite*  **He escuchado que es una playa bastante tranquila y es relativamente virgen, por lo que me gustaria visitarla**

*Hermosillo*  **Siempre me a parecido interesante la perpectiva del desierto Sonorense, ademas que me gustaria mucho visitar el Estadio Sonora, estadio local del equipo de besibol, Naranjeros de Hermosillo** 

*Guanajuato*  **Me llama mucho la atención asistir al Festival Cervantino que se lleva acabo en la capital de este estado** 

*Los Cabos*  **He escuchado que sus playas son bastante bonitas, asi como la gastronomia maritima que ofrece, por lo que me llama la atención visitarlo**


También puedes poner imágenes:


![](imagen-ejemplo.png){heigth="150"}


[O hipervínculos, por ejemplo a Google](https://www.google.com.mx/)



Row
-----------------------------------------------------------------------

### Referencias

1.  Referencia uno

2.  Referencia dos

3.  Referencia tres